'Dieses Programm schrieb fuer Sie
     'Detlef Kornatz
     'Feuerbachstasse 6
     'D-4300 Essen 1
'[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][
     SCREEN 2,320,256,5,1
     WINDOW 2,,,16,2
     CLS  
     PALETTE 0,0.49,0.31,0   
     FOR I=1 TO 8
     PALETTE I,I/10,0,0
     NEXT I
     FOR I=1 TO 12
     LINE (I+1,7+I)-(205-I,46-I),I-1,b    
     LINE (I+206,7+I)-(312-I,46-I),I-1,b   
     LINE (I+1,47+I)-(104-I,86-I),I-1,b
     LINE (I+1,87+I)-(104-I,126-I),I-1,b
     LINE (I+105,87+I)-(312-I,126-I),I-1,b
     LINE (I+105,47+I)-(312-I,86-I),I-1,b   
     LINE (I+1,127+I)-(312-I,246-I),I-1,b   
     NEXT I
     COLOR 9,0
     LOCATE 4,5 :PRINT "DIE REIHENSCHALTUNG"
     COLOR 11,0
     LOCATE 4,31:PRINT "ENDE"
     LOCATE 9,5:PRINT  "STROM"
     LOCATE 9,16:PRINT " WIDERSTAND  Rg=R1+R2"
     LOCATE 14,16:PRINT "SPANNUNG AM WIDERSTAND"
     LOCATE 14,4:PRINT  "SPANNUNG"
 anfang:
     ON MOUSE GOSUB mausdruck
     MOUSE ON
     WHILE 1 : WEND
 mausdruck:
     druck=MOUSE(0)
     x=MOUSE(3) : y=MOUSE(4)
   IF x>20 AND x<90 AND y>60 AND y<75 THEN rg=0:sp=0:w=0:ww=0:GOSUB stro    'ok
   IF x>20 AND x<90 AND y>100 AND y<113 THEN rg=0:sp=0:w=0:ww=0:GOSUB span    'ok
   IF x>120 AND x<300 AND y>100 AND y<113 THEN rg=0:sp=0:w=0:ww=0:GOSUB span1 'ok
   IF x>120 AND x<300 AND y>60 AND y<75 THEN rg=0:sp=0:w=0:ww=0:GOSUB wd
   IF x>220 AND x<300 AND y>20 AND y<33 THEN GOSUB e
   GOTO anfang
stro:
   SOUND 255,2,200
   WINDOW 3,,(19,142)-(295,222),16,2
   CLS
   TIMER OFF
   COLOR 10,0
   INPUT "Widerstand R1 OHM: ";w
   PRINT
   INPUT "Widerstand R2 OHM: ";ww
   rg=w+ww
   PRINT  
   INPUT "Spannung     VOLT: ";sp
   PRINT 
   COLOR 14,0 
   PRINT "STROM =":LOCATE 7,9:PRINT USING "###.####";sp/rg
   PRINT :LOCATE 7,20:PRINT "Amper" 
   ON TIMER (4) GOSUB strom
   TIMER ON
   WHILE 4:SLEEP:WEND:END
strom:
CLS
   WINDOW 2  
   LINE (30,180)-(30,220),1
   CIRCLE (30,225),4,,1
   LINE (30,180)-(50,180),1
   LINE (50,165)-(150,195),9,b
   LINE (150,180)-(170,180),1
   LINE (170,165)-(270,195),9,b
   LINE (270,180)-(290,180),1
   LINE (290,180)-(290,220),1
   CIRCLE (290,225),4,,1
   COLOR 15,0
  LOCATE 20,12:PRINT USING"###.####";sp/rg:LOCATE 20,25:PRINT"AMPER"
  LOCATE 23,5:PRINT ">"
  COLOR 9,0
  LOCATE 23,8:PRINT USING"#####.#";w:LOCATE 23,23:PRINT USING"#####.#";ww
  LOCATE 23,16:PRINT  "OHM":LOCATE 23,31:PRINT"OHM"
  COLOR 12,0
  LOCATE 29,15:PRINT USING"######.##";sp:LOCATE 29,25:PRINT"VOLT"
  I=sp/rg
    COLOR 12,0
  LOCATE 29,15:PRINT USING"######.##";I*rg:  LOCATE 29,25:PRINT"VOLT"
  LOCATE 26,8 :PRINT USING"######.##";I*w:   LOCATE 26,16:PRINT"VOLT"
  LOCATE 26,23:PRINT USING"######.##";I*ww:  LOCATE 26,31:PRINT"VOLT"
  GOTO anfang
  WINDOW CLOSE 2
  WINDOW CLOSE 3 
  RETURN
    '-----------STROM-----ENDE--------------------------------------
span:
   SOUND 255,2,200
   WINDOW 3,,(19,142)-(295,222),16,2
   CLS
   TIMER OFF
   COLOR 10,0
   INPUT "Widerstand R1 OHM: ";w
   PRINT
   INPUT "Widerstand R2 OHM: ";ww
   rg=w+ww
   I=sp/rg
   PRINT  
   INPUT "STROM       AMPER: ";I
   PRINT 
   COLOR 14,0 
   PRINT "SPANNUNG =":LOCATE 7,13:PRINT USING "######.##";I*rg
   PRINT :LOCATE 7,22:PRINT "VOLT"
   ON TIMER (4) GOSUB spannung
   TIMER ON
   WHILE 4:SLEEP:WEND:END
spannung:
CLS
   WINDOW 2      
   LINE (30,180)-(30,220),1
   CIRCLE (30,225),4,,1
   LINE (30,180)-(50,180),1
   LINE (50,165)-(150,195),9,b
   LINE (150,180)-(170,180),1
   LINE (170,165)-(270,195),9,b
   LINE (270,180)-(290,180),1
   LINE (290,180)-(290,220),1
   CIRCLE (290,225),4,,1
   COLOR 15,0
  LOCATE 20,12:PRINT USING"###.####";I:LOCATE 20,25:PRINT"AMPER"
  LOCATE 23,5:PRINT ">"
  COLOR 9,0
  LOCATE 23,8:PRINT USING"#####.#";w:LOCATE 23,23:PRINT USING"#####.#";ww
  LOCATE 23,16:PRINT"OHM":LOCATE 23,31:PRINT "OHM"
  COLOR 12,0
  LOCATE 29,15:PRINT USING"######.##";I*rg:  LOCATE 29,25:PRINT"VOLT"
    COLOR 12,0
  LOCATE 29,15:PRINT USING"######.##";I*rg:  LOCATE 29,25:PRINT"VOLT"
  LOCATE 26,8 :PRINT USING"######.##";I*w :  LOCATE 26,16:PRINT"VOLT"
  LOCATE 26,23:PRINT USING"######.##";I*ww:  LOCATE 26,31:PRINT"VOLT"
  GOTO anfang
  WINDOW CLOSE 2
  WINDOW CLOSE 3
  RETURN
 
   '-----------SPANNUNG-----ENDE
span1:
     SOUND 255,2,200
   WINDOW 3,,(19,142)-(295,222),16,2
   CLS
   TIMER OFF
   COLOR 10,0
   INPUT "Widerstand R1 OHM: ";w
   PRINT
   INPUT "Widerstand R2 OHM: ";ww
   rg=w+ww
   PRINT  
   INPUT "STROM       AMPER: ";I
   PRINT 
   COLOR 14,0 
   PRINT "SPANNUNG  =":LOCATE 7,13:PRINT USING "######.##";I*rg
   PRINT :LOCATE 7,22:PRINT "VOLT"
   PRINT "SPANNUNG 1=":LOCATE 8,13:PRINT USING "######.##";I*w
   PRINT :LOCATE 8,22:PRINT "VOLT"
   PRINT "SPANNUNG 2=":LOCATE 9,13:PRINT USING "######.##";I*ww
   PRINT :LOCATE 9,22:PRINT "VOLT"
   ON TIMER (5) GOSUB spann
   TIMER ON
   WHILE 5:SLEEP:WEND:END
spann:
CLS
   WINDOW 2      
   LINE (30,180)-(30,220),1
   CIRCLE (30,225),4,,1
   LINE (30,180)-(50,180),1
   LINE (50,165)-(150,195),9,b
   LINE (150,180)-(170,180),1
   LINE (170,165)-(270,195),9,b
   LINE (270,180)-(290,180),1
   LINE (290,180)-(290,220),1
   CIRCLE (290,225),4,,1
   COLOR 15,0
  LOCATE 20,12:PRINT USING"###.####";I:LOCATE 20,25:PRINT"AMPER"
  LOCATE 23,5:PRINT ">"
  COLOR 9,0
  LOCATE 23,8:PRINT USING"#####.#";w:LOCATE 23,23:PRINT USING"#####.#";ww
  LOCATE 23,16:PRINT"OHM":LOCATE 23,31:PRINT "OHM"
  COLOR 12,0
  LOCATE 29,15:PRINT USING"######.##";I*rg:  LOCATE 29,25:PRINT"VOLT"
  LOCATE 26,8 :PRINT USING"######.##";I*w :  LOCATE 26,16:PRINT"VOLT"
  LOCATE 26,23:PRINT USING"######.##";I*ww:  LOCATE 26,31:PRINT"VOLT"
  GOTO anfang
  WINDOW CLOSE 2
  WINDOW CLOSE 3
  RETURN
  '------------------SPANNUNG 1+2 Ende--------------------------
wd:
       SOUND 255,2,200
   WINDOW 3,,(19,142)-(295,222),16,2
   CLS
   TIMER OFF
   COLOR 10,0
   INPUT "SPANNUNG am R1 VOLT: ";v
   PRINT
   INPUT "SPANNUNG am R2 VOLT: ";vv
   vg=v+vv
   PRINT  
   INPUT "STROM       AMPER: ";I
   PRINT 
   COLOR 14,0 
   PRINT "WIDERSTAND Rg=":LOCATE 7,15:PRINT USING "######.##";vg/I
   PRINT :LOCATE 7,25:PRINT "OHM"
   PRINT "WIDERSTAND R1=":LOCATE 8,15:PRINT USING "######.#";v/I 
   PRINT :LOCATE 8,25:PRINT "OHM"
   PRINT "WIDERSTAND R2=":LOCATE 9,15:PRINT USING "######.#";vv/I 
   PRINT :LOCATE 9,25:PRINT "OHM"
   ON TIMER (5) GOSUB oh
   TIMER ON
   WHILE 5:SLEEP:WEND:END
oh:
CLS
   WINDOW 2      
   LINE (30,180)-(30,220),1
   CIRCLE (30,225),4,,1
   LINE (30,180)-(50,180),1
   LINE (50,165)-(150,195),9,b
   LINE (150,180)-(170,180),1
   LINE (170,165)-(270,195),9,b
   LINE (270,180)-(290,180),1
   LINE (290,180)-(290,220),1
   CIRCLE (290,225),4,,1
   vg=v+vv: w=v/I:ww=vv/I 
   COLOR 15,0
  LOCATE 20,12:PRINT USING"###.####";I:LOCATE 20,25:PRINT"AMPER"
  LOCATE 23,5:PRINT ">"
  COLOR 9,0
  LOCATE 23,8:PRINT USING"#####.#";w:LOCATE 23,23:PRINT USING"#####.#";ww
  LOCATE 23,16:PRINT"OHM":LOCATE 23,31:PRINT "OHM"
  COLOR 12,0
  LOCATE 29,15:PRINT USING"######.##";vg :  LOCATE 29,25:PRINT"VOLT"
  LOCATE 26,8 :PRINT USING"######.##";I*w:  LOCATE 26,16:PRINT"VOLT"
  LOCATE 26,23:PRINT USING"######.##";I*ww:  LOCATE 26,31:PRINT"VOLT"
  GOTO anfang
  WINDOW CLOSE 2
  WINDOW CLOSE 3
  RETURN   
e:
  WINDOW CLOSE 3
  WINDOW CLOSE 2
  SCREEN CLOSE 2
  END